home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 12 / BBS in a box XII-2.iso / Files II / Hyper / Me-Mz / MenuEdit.sit / Menu Editor / background_3589.xml next >
Encoding:
Extensible Markup Language  |  1994-05-08  |  1.1 KB  |  13 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>3589</id>
  5.     <filler1>0</filler1>
  6.     <cantDelete> <false /> </cantDelete>
  7.     <showPict> <true /> </showPict>
  8.     <dontSearch> <false /> </dontSearch>
  9.     <link rel="stylesheet" type="text/css" href="stylesheet_3282.css" />
  10.     <name></name>
  11.     <script>-- on setmin i
  12. -- global Cost,Data
  13. -- put item Cost of line i of Data into c
  14. -- answer "Cost = " & c & ". Min?" with round(c/3)
  15. -- put it into item 15 of line i of bg fld "Data"
  16. -- end setmin
  17.  
  18.  
  19. on DisplayRect prop,theRect
  20. global BW
  21. if BW is true then exit DisplayRect
  22. global Monop,Data
  23. put item Monop of line prop of Data into m
  24. put line m of bg fld "colors" into theColor
  25. put "colorizeHC " & QUOTE & "colorFill" & QUOTE & "," ¬¨
  26. & QUOTE & theRect & QUOTE & "," & QUOTE & theColor & QUOTE into l
  27. do l
  28. end DisplayRect
  29.  
  30.  
  31. on eraseRect
  32. global TitleRect
  33. colorizeHC "Erase",TitleRect
  34. end eraseRect
  35.  
  36.  
  37. on release thing
  38. global ChanceJail
  39. if thing contains "Chance" then put false into ChanceJail
  40. end release</script>
  41. </background>
  42.